Overview
一些小發現
- 合計是用在69-96年間分類
- 地區是用在97年之後的分類
- 76年解嚴，出國人數上升
- 香港、澳門、中國分開算
- 香港很重要
- SARS與旅遊人數
tour <- read_csv("tour.csv", col_names = FALSE) %>%
rename("Year"=X1,"Location"=X2,"Count"=X3)將合計、地區統一為地區
lo<- function(x) {str_replace_all(x,"合計","地區")}
tour <- tour %>%
mutate(Location=lo(Location))各大洲比較
## 各大洲旅遊人數
tour_continent <- tour %>%
filter(grepl("地區",Location)) %>%
filter(!grepl("其他地區",Location))
## 各大洲旅遊人數比較
ggplot(tour_continent,mapping = aes(x=Year, y=Count))+
geom_point(mapping = aes(color=Location))+
scale_x_continuous(breaks=69:104)
各大洲+總人數
## 旅遊總人數
non_region <- tour %>%
filter(!grepl("地區",Location))
other_region <- tour %>%
filter(grepl("其他地區",Location))
tour_total <- bind_rows(non_region, other_region) %>%
group_by(Year) %>%
summarise(Total=sum(Count,na.rm = TRUE))
## 各大洲+總人數
ggplot()+
geom_line(data=tour_continent,mapping = aes(x=Year,y=Count,color=Location))+
geom_line(data=tour_total, mapping=aes(x=Year,y=Total,color="總人數"))+
scale_x_continuous(limits=c(75,104),breaks=75:104)
亞洲: SARS
92年觀光人數下降，亞洲尤其明顯，所以先看看亞洲
tour_asia_country <- tour %>%
filter(grepl("中國|日本|韓國|香港|亞洲地區|菲律賓|新加坡|馬來西亞|泰國|印尼|汶萊|越南|澳門|緬甸",Location))
gp=ggplot(tour_asia_country,mapping = aes(x=Year, y=Count))+
geom_line(mapping = aes(color=Location))+
scale_x_continuous(limits=c(75,104) ,breaks=75:104)+
scale_y_continuous(breaks=seq(0, 12000000, by=1000000))
ggplotly(gp)概觀
- 香港在97年之前的變動趨勢與亞洲地區吻合
- 中國、日本、香港在98年之後的變動很有趣
- 92年附近，澳門和香港的曲線變動非常類似，92年的下跌非常明顯
推測這下跌應與某大事件的發生有關。查詢維基百科2003年臺灣，發現其很有可能與SARS於亞洲地區，特別是臺灣與中國大陸的爆發有關。
SARS 疫情
民國92年旅遊人數明顯下降，可說是暴跌的程度。其原因應與SARS在中國大陸、香港、澳門及臺灣的爆發有關。
- 有趣的是，亞洲國家當中，唯一旅遊人數大幅上升的國家韓國，未傳出SARS疫情(沒有病例)
- 可參見WHO SARS Summary，查看各國SARS的疫情。
- 觀光局觀光統計月報: 2003年4月中華民國國民出國目的地人數分析統計可看到四月份觀光成長率多為負，尤其是香港
- 三、四月: SARS在香港爆發
綜上所述，應能確定造成92年旅遊人數下降的因素為SARS疫情爆發。